Asia X/Asia X.iso/pc/shared.dir/00155.ls

Text File | 1995-08-23 | 3.5 KB | 115 lines

on startMovie
  global gSong, gSlideSpeed, g_num_pics, spriteList, cursorList, doll_right, doll_left, doll_help, doll_option, doll_quit, doll_auto, g_auto_state, g_doll_state, g_help_state, g_option_state, g_quit_state, Help4, Help3, Help2, Help1, Quit4, Quit3, Quit2, Quit1, Option4, Option3, Option2, Option1, Doll9, Doll8, Doll7, Doll6, Doll5, Doll4, Doll3, Doll2, Doll1, auto4, auto3, auto2, auto1
  put gSong, gSlideSpeed
  set Help4 to the number of cast "Help.4"
  set Help3 to the number of cast "Help.3"
  set Help2 to the number of cast "Help.2"
  set Help1 to the number of cast "Help.1"
  set Quit4 to the number of cast "Quit.4"
  set Quit3 to the number of cast "Quit.3"
  set Quit2 to the number of cast "Quit.2"
  set Quit1 to the number of cast "Quit.1"
  set auto4 to the number of cast "auto.4"
  set auto3 to the number of cast "auto.3"
  set auto2 to the number of cast "auto.2"
  set auto1 to the number of cast "auto.1"
  set Option4 to the number of cast "Option.4"
  set Option3 to the number of cast "Option.3"
  set Option2 to the number of cast "Option.2"
  set Option1 to the number of cast "Option.1"
  set Doll9 to the number of cast "Doll.9"
  set Doll8 to the number of cast "Doll.8"
  set Doll7 to the number of cast "Doll.7"
  set Doll6 to the number of cast "Doll.6"
  set Doll5 to the number of cast "Doll.5"
  set Doll4 to the number of cast "Doll.4"
  set Doll3 to the number of cast "Doll.3"
  set Doll2 to the number of cast "Doll.2"
  set Doll1 to the number of cast "Doll.1"
  set g_help_state to 4
  set g_doll_state to 5
  set g_quit_state to 4
  set g_option_state to 4
  set g_auto_state to 4
  puppetSprite(11, 1)
  puppetSprite(10, 1)
  puppetSprite(9, 1)
  puppetSprite(8, 1)
  puppetSprite(7, 1)
  set doll_right to the number of cast "doll_right"
  set doll_left to the number of cast "doll_left"
  set doll_help to the number of cast "doll_help"
  set doll_option to the number of cast "doll_option"
  set doll_quit to the number of cast "doll_quit"
  set doll_auto to the number of cast "doll_auto"
  set spriteList to list(0)
  set cursorList to list(0)
  set button to [133 + 144, 141 + 144]
  set the cursor of sprite 12 to [129 + 144, 137 + 144]
  set the cursor of sprite 13 to [130 + 144, 138 + 144]
  set the cursor of sprite 14 to button
  set the cursor of sprite 15 to [132 + 144, 140 + 144]
  set the cursor of sprite 16 to [131 + 144, 139 + 144]
  set the cursor of sprite 17 to button
  set the cursor of sprite 18 to button
  set the cursor of sprite 19 to button
  set the cursor of sprite 20 to button
end

on saveSprites
  set spriteList to list(0)
  repeat with i = 1 to 20
    setAt(spriteList, i, the visible of sprite i)
  end repeat
  return spriteList
end

on clearCursors
  repeat with i = 1 to 20
    set the cursor of sprite i to 0
  end repeat
end

on saveCursors
  set cursorList to list(0)
  repeat with i = 1 to 20
    setAt(cursorList, i, the cursor of sprite i)
  end repeat
  return cursorList
end

on restoreCursors cursorList
  repeat with i = 1 to 20
    set the cursor of sprite i to getAt(cursorList, i)
  end repeat
end

on restoreSprites spriteList
  repeat with i = 1 to 20
    set the visible of sprite i to getAt(spriteList, i)
  end repeat
end

on newSongUpdate newSong
  global gSong
  if gSong <> newSong then
    set gSong to newSong
  end if
end

on newSlideSpeed newspeed
  global gSlideSpeed
  if gSlideSpeed <> newspeed then
    set gSlideSpeed to newspeed
  end if
end

on mouseClick
  puppetSound("Single Click")
  updateStage()
  repeat while soundBusy(0) or soundBusy(1)
    nothing()
  end repeat
  puppetSound(0)
end